home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / PASSWORD / PASSWORD.ZIP / PASSLOAD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-11  |  1.3 KB  |  60 lines
  1. {*******************************************************
  2.                 PassLoad Unit
  3.  
  4.    This unit explicitly loads PASSWORD.DLL. Source
  5.    to the DLL is available for $5.00 Cdn (if I can
  6.    e-mail it).
  7.  
  8.  
  9.                 Paul Warren
  10.        HomeGrown Software Development
  11.      (c) 1996 Langley British Columbia.
  12.               (604) 530-9097
  13.        e-mail:  hg_soft@uniserve.com
  14.   Home page: http://haven.uniserve.com/~hg_soft
  15.  
  16. ********************************************************}
  17.  
  18. unit Passload;
  19.  
  20. interface
  21.  
  22. const
  23.   PassWrdLoaded: Boolean = False; { presume nothing! }
  24.  
  25. var
  26.   Login: function(var UserN : String; IniFileName,SectionName: String): WordBool; { <--- THE BOOLEAN FUNCTION }
  27.   UserName: String;
  28.  
  29. implementation
  30. {$IFDEF WINDOWS}
  31. uses WinProcs;
  32. Const SEM_NoOpenFileErrorBox = $8000;
  33. {$ELSE}
  34. uses WinAPI;
  35. {$ENDIF}
  36.  
  37. var
  38.   SaveExit: pointer;
  39.   DLLHandle: Word;
  40.  
  41.     procedure NewExit; far;
  42.     begin
  43.       ExitProc := SaveExit;
  44.       FreeLibrary(DLLHandle)
  45.     end {NewExit};
  46.  
  47. begin
  48.   {$IFDEF WINDOWS}
  49.   SetErrorMode(SEM_NoOpenFileErrorBox);
  50.   {$ENDIF}
  51.   DLLHandle := LoadLibrary('PASSWORD.DLL');
  52.   if DLLHandle >= 32 then
  53.   begin
  54.     PassWrdLoaded := True;
  55.     SaveExit := ExitProc;
  56.     ExitProc := @NewExit;
  57.     @Login := GetProcAddress(DLLHandle,'LOGIN');
  58.   end
  59. end.
  60.